home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / BEERSRC.ZIP / KEY.BAS < prev    next >
Encoding:
BASIC Source File  |  1992-12-29  |  186 b   |  12 lines
  1. DEFINT A-Z
  2. CLS
  3. 10 :
  4. i = INP(&H60)
  5. IF i <> j THEN
  6.    LOCATE 1, 1: PRINT "                    ";
  7.    LOCATE 1, 1: PRINT HEX$(INP(&H60)) + "h"; " "; INKEY$;
  8. END IF
  9. j = i
  10. GOTO 10
  11.  
  12.